home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
s85xx
/
s8501.d64
/
autonum 64
(
.txt
)
next >
Wrap
Commodore BASIC
|
1995-03-30
|
1KB
|
50 lines
10 REM *** AUTONUM 64 ***
11 REM
12 REM AUTOMATISCHE
13 REM ZEILENNUMMERNVORGABE
14 REM
15 REM
16 REM 1. ZEILENNR. LOW -BYTE IN 49294
17 REM 1. ZEILENNR. HIGH-BYTE IN 49295
18 REM ZEILENABSTAND (1-255) IN 49296
19 REM
20 REM
21 REM EIN UTILITY VON:
22 REM
23 REM TH. SCHULZ
24 REM POSTFACH 602542
25 REM 2000 HAMBURG 60
26 REM TEL.040/6316055
27 REM
28 REM
29 POKE49294,0:POKE49295,0:POKE49296,10
30 POKE55,0:POKE56,195:AD=49152:Z=0
31 POKE53280,0:POKE53281,0:PRINTCHR$(30);
32 PRINTCHR$(147);
33 READX:IFX=-1THEN51
34 POKEAD,X:AD=AD+1:Z=Z+X:GOTO33
35 DATA32,115,0,201,95,240,6,32,121,0,76
36 DATA231,167,32,115,0,24,173,144,192
37 DATA109,142,192,141,142,192,144,3,238
38 DATA143,192,162,23,160,0,24,32,10,229
39 DATA173,143,192,174,142,192,32,205
40 DATA189,169,152,133,251,169,7,133,252
41 DATA169,119,133,253,169,2,133,254,160
42 DATA0,177,251,201,32,240,6,145,253
43 DATA200,76,66,192,132,198,160,0,162,23
44 DATA24,32,10,229,169,15,141,24,212
45 DATA169,207,141,7,212,169,34,141,8
46 DATA212,169,240,141,13,212,169,17,141
47 DATA11,212,162,64,160,255,136,208,253
48 DATA202,208,248,169,0,141,11,212,76
49 DATA128,164,169,0,141,8,3,169,192
50 DATA141,9,3,96,-1
51 IFZ<>18097THEN55
52 PRINTCHR$(147)CHR$(17);
53 PRINT"AUTONUM 64 ZEILENNR.VORG.: _";
54 PRINTCHR$(18)"RETURN":SYS49283:NEW
55 PRINTCHR$(17)"FEHLER IN DATAS!
56 [153][199](17)"CHECKSUMME "[199](18);
57 [153]" IST:"[199](146)Z[199](18);
58 [153][163]15)"SOLL:"[199](146)18097:[128]